home *** CD-ROM | disk | FTP | other *** search
/ My Neighborhood / My Neighborhood.iso / mac / MacFiles / Zoo6.Dxr / 00032.ls < prev    next >
Encoding:
Text File  |  1997-11-18  |  1.2 KB  |  33 lines
  1. on moveMiddle
  2.   global LcurrentWeight, RcurrentWeight
  3.   puppetSound("Chunk.S")
  4.   updateStage()
  5.   if RcurrentWeight > LcurrentWeight then
  6.     set tempWt to the number of cast "right heavier"
  7.     set tempGauge to the number of cast "left plus lit"
  8.     set the castNum of sprite 2 to tempGauge
  9.     set the castNum of sprite 3 to the number of cast "middle"
  10.     set the castNum of sprite 4 to the number of cast "right"
  11.   else
  12.     if RcurrentWeight < LcurrentWeight then
  13.       set tempWt to the number of cast "left heavier"
  14.       set tempGauge to the number of cast "right plus lit"
  15.       set the castNum of sprite 2 to the number of cast "left"
  16.       set the castNum of sprite 3 to the number of cast "middle"
  17.       set the castNum of sprite 4 to tempGauge
  18.     else
  19.       if RcurrentWeight = LcurrentWeight then
  20.         set tempWt to the number of cast "even"
  21.         set tempGauge to the number of cast "equal lit"
  22.         set the castNum of sprite 2 to the number of cast "left"
  23.         set the castNum of sprite 3 to tempGauge
  24.         set the castNum of sprite 4 to the number of cast "right"
  25.       end if
  26.     end if
  27.   end if
  28.   set the castNum of sprite 10 to tempWt
  29.   repeat while soundBusy(1)
  30.   end repeat
  31.   puppetSound(0)
  32. end
  33.